home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 626-637 / disk_635 / powerlogo / logo-startup < prev    next >
Text File  |  1992-05-06  |  530b  |  24 lines
  1.  
  2. ;  LOGO-Startup
  3.  
  4. ;  This file loads the files named in the LOGO startup arguments.
  5.  
  6. make "load-arg-files [
  7.    procedure [ [ ] [ ] [ :args :arg :c ] ]
  8.    make "args argslist
  9.    while
  10.    [  make "args bf :args
  11.       not emptyp :args ]
  12.    [  make "arg first :args
  13.       make "c count :arg
  14.       if if >= :c 12
  15.          [  not =   restof - :c 12 :arg   "LOGO-Startup ]
  16.          [  true ]
  17.       [  ( pr "LOADING\ FILE:\ \  :arg )
  18.          load :arg
  19.          pr "LOAD\ COMPLETE ]
  20.       [ ] ]
  21.    erase "load-arg-files ]
  22.  
  23. load-arg-files
  24.